home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / prime generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  552b  |  23 lines
  1. 0 rem--ahoy--mar issue--prime number generator--prog page 83
  2. 1 rem prime number generator
  3. 2 rem  based on kmmm pascal demo
  4. 3 rem wilserv industries
  5. 4 rem bellmawr n.j.
  6. 5 rem modified by morton a. kevelson
  7. 6 rem for dtl-basic 64 benchmark tests
  8. 7 rem convert excluding integer directive
  9. 8 rem ** ce ()
  10. 9 t1=ti:rem jiffy clock variable
  11. 10 l=1000:h=1
  12. 20 dim s(l)
  13. 30 for j=1 to l:s(j)=1:next j
  14. 35 print "array cleared"
  15. 40 for n=2 to l
  16. 50 if s(n)<h then 80
  17. 60 print n;
  18. 70 for j=n to l step n:s(j)=0:next j
  19. 80 nextn
  20. 85 te=ti-t1:print:print te;"jiffies"
  21. 87 rem 1 jiffy = 1/60 second
  22. 90 end
  23.